home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS002.dsk / LONG DIVISION.int < prev    next >
Text File  |  2012-02-16  |  343b  |  14 lines
  1. 100 CALL -936:PRINT "LLLOOONNNGGG DIVISION":VTAB 5
  2. 110 INPUT "ENTER NUMERATOR",X:IF X=0 THEN END 
  3. 120 INPUT "ENTER DENOMINATOR",Y
  4. 130 PRINT :INPUT "HOW MANY DECIMAL PLACES",N
  5. 140 GOSUB 1020:PRINT :PRINT :GOTO 110
  6. 1020 Q=X/Y
  7. 1030 PRINT Q;".";
  8. 1040 X=(X-Q*Y)*10
  9. 1050 Q=X/Y
  10. 1060 PRINT Q;
  11. 1070 N=N-1
  12. 1080 IF N>0 THEN GOTO 1040
  13. 1090 PRINT :RETURN 
  14.